﻿Imports System
Imports System.Collections.Generic
Imports System.Text
'Namespace DTO
Public Class CNhanVien
#Region "Thuộc Tính Nhân Viên"
    Private _maNV As String
    Private _hoTenNV As String
    Private _maLoaiNV As Integer
    Private _ngaySinh As Date
    Private _gioiTinh As String
    Private _chucVu As String
    Private _ngayVaoLam As Date
    Private _maQuyen As Integer
    Private _hinh As String
    Private _dienThoai As String
    Private _email As String
    Private _tinh As String
    Private _huyen As String
    Private _ghiChu As String
    Private _tenDangNhap As String
    Private _matKhau As String
    Private _tinhTrang As Integer
    Private _luong As Double

    Public Property maNV() As String
        Get
            Return _maNV
        End Get
        Set(ByVal value As String)
            _maNV = value
        End Set
    End Property

    Public Property hoTenNV() As String
        Get
            Return _hoTenNV
        End Get
        Set(ByVal value As String)
            _hoTenNV = value
        End Set
    End Property

    Public Property maLoaiNV() As Integer
        Get
            Return _maLoaiNV
        End Get
        Set(ByVal value As Integer)
            _maLoaiNV = value
        End Set
    End Property

    Public Property ngaySinh() As Date
        Get
            Return _ngaySinh
        End Get
        Set(ByVal value As Date)
            _ngaySinh = value
        End Set
    End Property

    Public Property gioiTinh() As String
        Get
            Return _gioiTinh
        End Get
        Set(ByVal value As String)
            _gioiTinh = value
        End Set
    End Property

    Public Property ngayVaoLam() As Date
        Get
            Return _ngayVaoLam
        End Get
        Set(ByVal value As Date)
            _ngayVaoLam = value
        End Set
    End Property

    Public Property chucVu() As String
        Get
            Return _chucVu
        End Get
        Set(ByVal value As String)
            _chucVu = value
        End Set
    End Property

    Public Property maQuyen() As Integer
        Get
            Return _maQuyen
        End Get
        Set(ByVal value As Integer)
            _maQuyen = value
        End Set
    End Property

    Public Property hinh() As String
        Get
            Return _hinh
        End Get
        Set(ByVal value As String)
            _hinh = value
        End Set
    End Property

    Public Property dienThoai() As String
        Get
            Return _dienThoai
        End Get
        Set(ByVal value As String)
            _dienThoai = value
        End Set
    End Property

    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property

    Public Property tinh() As Integer
        Get
            Return _tinh
        End Get
        Set(ByVal value As Integer)
            _tinh = value
        End Set
    End Property

    Public Property huyen() As Integer
        Get
            Return _huyen
        End Get
        Set(ByVal value As Integer)
            _huyen = value
        End Set
    End Property

    Public Property ghiChu() As String
        Get
            Return _ghiChu
        End Get
        Set(ByVal value As String)
            _ghiChu = value
        End Set
    End Property

    Public Property tenDangNhap() As String
        Get
            Return _tenDangNhap
        End Get
        Set(ByVal value As String)
            _tenDangNhap = value
        End Set
    End Property

    Public Property matKhau() As String
        Get
            Return _matKhau
        End Get
        Set(ByVal value As String)
            _matKhau = value
        End Set
    End Property

    Public Property tinhTrang() As Integer
        Get
            Return _tinhTrang
        End Get
        Set(ByVal value As Integer)
            _tinhTrang = value
        End Set
    End Property

    Public Property luong() As Double
        Get
            Return _luong
        End Get
        Set(ByVal value As Double)
            _luong = value
        End Set
    End Property
#End Region
#Region "Hàm Khởi Tạo Đối Tượng"
    Public Sub New()
        MyBase.New()
        maNV = ""
        hoTenNV = ""
        maLoaiNV = 0
        ngaySinh = Date.Parse("1/1/1992")
        gioiTinh = ""
        ngayVaoLam = Date.Now
        chucVu = ""
        maQuyen = 0
        hinh = ""
        dienThoai = ""
        email = ""
        tinh = 0
        huyen = 0
        ghiChu = ""
        tenDangNhap = ""
        matKhau = ""
        tinhTrang = 0
        luong = 0
    End Sub
    Public Sub New(ByVal nv As CNhanVien)
        maNV = nv.maNV
        hoTenNV = nv.hoTenNV
        maLoaiNV = nv.maLoaiNV
        ngaySinh = nv.ngaySinh
        gioiTinh = nv.gioiTinh
        ngayVaoLam = nv.ngayVaoLam
        chucVu = nv.chucVu
        maQuyen = nv.maQuyen
        hinh = nv.hinh
        dienThoai = nv.dienThoai
        email = nv.email
        tinh = nv.tinh
        huyen = nv.huyen
        ghiChu = nv.ghiChu
        tenDangNhap = nv.tenDangNhap
        matKhau = nv.matKhau
        tinhTrang = nv.tinhTrang
        luong = nv.luong
    End Sub
    Public Sub New(ByVal mNV As String, ByVal hTenNV As String, ByVal mLoaiNV As Integer, ByVal nSinh As Date, ByVal gTinh As String, ByVal nVaoLam As Date, ByVal cVu As String, ByVal mQuyen As Integer, ByVal hih As String, ByVal dThoai As String, ByVal mail As String, ByVal tih As String, ByVal h As String, ByVal gChu As String, ByVal tDangNhap As String, ByVal mkhau As String, ByVal tTrang As Integer, ByVal Lg As Integer)
        maNV = mNV
        hoTenNV = hTenNV
        maLoaiNV = mLoaiNV
        ngaySinh = nSinh
        gioiTinh = gTinh
        ngayVaoLam = nVaoLam
        chucVu = cVu
        maQuyen = mQuyen
        hinh = hih
        dienThoai = dThoai
        email = mail
        tinh = tih
        huyen = h
        ghiChu = gChu
        tenDangNhap = tDangNhap
        matKhau = mkhau
        tinhTrang = tTrang
        luong = Lg
    End Sub
#End Region

End Class
'End Namespace
